Imports capaLogica

Public Class VentanaNuevaEvaluacion

    Dim idRubro As Integer
    Dim idGrupo As String

    Public Sub New(ByVal pidRubro As Integer, ByVal pidGrupo As String)
        InitializeComponent()
        Me.idRubro = pidRubro
        Me.idGrupo = pidGrupo
    End Sub

    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
        Dim gestor As New GestorVerNotas()
        gestor.AgregarEvaluacion(Me.idRubro, Me.idGrupo, Me.txtNombre.Text)
        Me.Dispose()
    End Sub
End Class